home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / WFC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  6KB  |  89 lines
  1. Procedure DrawWFC;
  2. const ImageData : array [1..1301] of Char = (
  3.     #16,' ',#12,'▄',#25,#5 ,'▄',#24,' ',#20,'▐',#16,'▌',#25,#3 ,'▐',#25,
  4.     #23,'▐',' ',' ',#8 ,'┌',#7 ,'┌',#15,'╓',#26,#11,'─',' ','V',#9 ,'i',
  5.     'S','i',#1 ,'O','N',' ',#15,'v',#9 ,'.','o','8',#1 ,'2',' ',#15,#26,
  6.     #12,'─','╖',#7 ,'┐',#8 ,'┐',#24,' ',' ',#4 ,'█',#25,#2 ,'▄',#12,'▌',
  7.     ' ',#14,'▀','▌',' ',#12,'▄','█','▀','▀',' ',#14,'▄',' ',' ',#12,'▄',
  8.     '▄',#25,#2 ,#20,'▀','▀',#16,'▄',#25,#3 ,'█',' ',' ',#8 ,'│',#7 ,'│',
  9.     #15,'║',#25,#2 ,#8 ,'b',#7 ,'y',' ',#15,'C','r','i','m','s','o','n',
  10.     ' ','B','l','a','d','e',#7 ,',',' ',#15,'T','h','e',' ','E','l','e',
  11.     'm','e','n','t',#7 ,'a',#8 ,'l',' ',#12,'&',#25,#2 ,#15,'║',#7 ,'│',
  12.     #8 ,'│',#24,' ',' ',#4 ,'▐','▌',' ','▐','█',' ',#12,'█','▄',' ',#4 ,
  13.     '█',#12,#20,'▐',#16,#25,#2 ,'▄','▄',' ','█','▌',#4 ,'▀','█','▄',' ',
  14.     '▐','█','█','▌',' ',' ','▐','▌',' ',' ',#8 ,'│',#7 ,'│',#15,'║',#25,
  15.     #9 ,#8 ,'T',#7 ,'h',#15,'e',' ','S','p','e','c','t','r','a','l',' ',
  16.     'D','e','m',#7 ,'o',#8 ,'n',#25,#10,#15,'║',#7 ,'│',#8 ,'│',#24,#25,
  17.     #2 ,#4 ,'█',#8 ,'▄',#20,'▄',#16,'▌',#4 ,'▐','█',#12,'▌',' ',' ',#4 ,
  18.     '▀',#12,'▀',#20,'▀',#16,'▄',' ',#20,'▀',#4 ,#16,'▌',#12,'▐',#4 ,'█',
  19.     ' ',' ','▀','█','▐','▌','▀','█','▄',' ','█','▌',' ',' ',#8 ,'└',#7 ,
  20.     '└',#15,'╙',#26,#38,'─','╜',#7 ,'┘',#8 ,'┘',#24,#25,#3 ,'▀','▀',' ',
  21.     #20,'▄','▐',#16,#25,#5 ,#20,'▌',#16,'▌','▐',#20,'▐',#16,' ',#20,'▌',
  22.     #16,'▄',' ','▄','█','▐',#20,'▐',#16,' ',' ',#20,'▌','▐','▄',#16,#25,
  23.     #3 ,#14,'╔','═','═',#12,'═','═',#4 ,'═','═',#8 ,#26,#28,'═',#4 ,'═',
  24.     '═',#12,'═','═',#14,'═','═','╗',#24,#25,#7 ,#8 ,'▀',#25,#3 ,'▄','█',
  25.     '▀',' ','▀',#25,#2 ,'▀','▀','▀',' ',' ','▀',#25,#2 ,'▀',#25,#4 ,#14,
  26.     '║',' ',#12,'R','e','c','e','n','t',' ','C','a','l','l','s',#9 ,#26,
  27.     #3 ,'─',#1 ,'─',#25,#22,#14,'║',#24,#15,'╔','═','═',#9 ,'═','═',#1 ,
  28.     #26,#3 ,'═',' ',#8 ,'▀','▀','▀',' ',#1 ,#26,#15,'═',#9 ,'═','═',#15,
  29.     '═','═','╗',' ',#12,'║',' ','M','i','n','s',' ','U','s','e','d',#9 ,
  30.     #26,#6 ,'─',#1 ,'─',#25,#22,#12,'║',#24,#15,'║',' ',#12,'C','u','r',
  31.     'r','e','n','t',' ','T','i','m','e',#9 ,#26,#5 ,'─',#1 ,'─',#25,#12,
  32.     #15,'║',' ',#4 ,'║',' ',#12,'T','o','t','a','l',' ','D','a','y',' ',
  33.     'U','p',#9 ,#26,#3 ,'─',#1 ,'─',#25,#22,#4 ,'║',#24,#9 ,'║',' ',#12,
  34.     'C','u','r','r','e','n','t',' ','D','a','t','e',#9 ,#26,#5 ,'─',#1 ,
  35.     '─',#25,#12,#9 ,'║',' ',#8 ,'║',' ',#12,'C','a','l','l','s',' ','T',
  36.     'o','d','a','y',#9 ,#26,#4 ,'─',#1 ,'─',#25,#22,#8 ,'║',#24,#1 ,'║',
  37.     ' ',#12,'C','h','a','t',' ','A','v','a','i','l','a','b','i','l','i',
  38.     't','y',#9 ,'─',#1 ,'─',#25,#12,'║',' ',#8 ,'║',' ',#12,'C','a','l',
  39.     'l','s',' ','/',' ','D','a','y',#9 ,#26,#4 ,'─',#1 ,'─',#25,#22,#8 ,
  40.     '║',#24,#1 ,'║',' ',#12,'#',' ','O','f',' ','F','e','e','d','b','a',
  41.     'c','k',#9 ,#26,#4 ,'─',#1 ,'─',#25,#12,'║',' ',#8 ,'║',' ',#12,'M',
  42.     'i','n','u','t','e','s',' ','I','d','l','e',#9 ,#26,#3 ,'─',#1 ,'─',
  43.     #25,#22,#8 ,'║',#24,#1 ,'║',' ',#12,'N','e','w',' ','E','m','a','i',
  44.     'l',' ','[','A','L','L',']',#9 ,'─','─','─',#1 ,'─',#25,#12,'║',' ',
  45.     #4 ,'╠','═',#8 ,#26,#38,'═',#4 ,'═','╣',#24,#1 ,'║',' ',#12,'N','e',
  46.     'w',' ','E','m','a','i','l',' ','T','o',' ','Y','o','u',#9 ,'─','─',
  47.     #1 ,'─',#25,#12,'║',' ',#12,'║',' ','H','D',' ','S','p','a','c','e',
  48.     #9 ,#26,#7 ,'─',#1 ,'─',#25,#22,#12,'║',#24,#9 ,'║',' ',#12,'R','e',
  49.     'c','e','n','t',' ','P','o','s','t','s',#9 ,#26,#5 ,'─',#1 ,'─',#25,
  50.     #12,#9 ,'║',' ',#14,'║',' ',#12,'L','a','s','t',' ','U','s','e','r',
  51.     #9 ,'─',#1 ,'─',#25,#28,#14,'║',#24,#15,'║',' ',#12,'R','e','c','e',
  52.     'n','t',' ','U','p','l','o','a','d','s',#9 ,#26,#3 ,'─',#1 ,'─',#25,
  53.     #12,#15,'║',' ',#14,'╚','═','═',#12,'═','═',#4 ,'═','═',#8 ,#26,#28,
  54.     '═',#4 ,'═','═',#12,'═','═',#14,'═','═','╝',#24,#15,'╚','═','═',#9 ,
  55.     '═','═',#1 ,#26,#24,'═',#9 ,'═','═',#15,'═','═','╝',' ','┌','─','─',
  56.     #13,'─','─',#9 ,'─','─',#1 ,#26,#29,'─',#9 ,'─','─','─',#15,'┬',#9 ,
  57.     '─','┐',#24,#14,'╒','═','═',#13,'═','═',#9 ,'═','═',#1 ,#26,#26,'═',
  58.     '╕',' ',#15,'│',' ',#9 ,'[',#12,'F','1',#9 ,']',' ',#15,'T','e','r',
  59.     'm',#25,#9 ,#9 ,'[',#12,'F','2',#9 ,']',' ',#15,'E','x','i','t',' ',
  60.     't','o',' ','D','O','S',#25,#2 ,#9 ,'│',' ',#1 ,'│',#24,#14,'│',' ',
  61.     #12,'R','e','g','i','s','t','e','r','e','d',' ','S','y','s','O','p',
  62.     ' ','N','a','m','e',#9 ,':',#25,#9 ,#1 ,'│',' ',#15,'│',' ',#9 ,'[',
  63.     #12,'F','3',#9 ,']',' ',#15,'G','i','v','e',' ','C','a','r','r','i',
  64.     'e','r',' ',' ',#9 ,'[',#12,'F','4',#9 ,']',' ',#15,'R','e','a','d',
  65.     ' ','E','-','m','a','i','l',#25,#2 ,#9 ,'│',' ',#1 ,'│',#24,#13,'│',
  66.     #25,#32,#9 ,'│',' ',#13,'│',' ',#9 ,'[',#12,'F','5',#9 ,']',' ',#15,
  67.     'S','y','s','O','p',' ','C','m','d','s',#25,#3 ,#9 ,'[',#12,'F','6',
  68.     #9 ,']',' ',#15,'F','o','r','c','e',' ','N','e','t','M','a','i','l',
  69.     ' ',#1 ,'│',' ','│',#24,#9 ,'│',' ',#12,'R','e','g','i','s','t','e',
  70.     'r','e','d',' ','B','B','S',' ','N','a','m','e',#9 ,':',#25,#11,#13,
  71.     '│',' ',#9 ,'│',' ','[',#12,'F','7',#9 ,']',' ',#15,'R','e','d','r',
  72.     'a','w',#25,#7 ,#9 ,'[',#12,'F','8',#9 ,']',' ',#15,'S','h','e','l',
  73.     'l',' ','t','o',' ','D','O','S',' ',' ',#1 ,'│',' ','│',#24,'│',#25,
  74.     #32,#14,'│',' ',#1 ,'│',' ',#9 ,'[',#12,'F','9',#9 ,']',' ',#15,'L',
  75.     'o','a','d',' ','C','o','n','f','i','g',' ',' ',#9 ,'[',#12,'F','1',
  76.     '0',#9 ,']',' ',#15,'S','y','s','O','p',' ','L','o','g','i','n',#25,
  77.     #2 ,#9 ,'│',' ',#1 ,'│',#24,'╘',#26,#26,'═',#9 ,'═','═',#13,'═','═',
  78.     #14,'═','═','╛',' ',#1 ,'└',#26,#32,'─',#9 ,'─',#13,'─',#15,'─','─',
  79.     #13,'─',#9 ,'─','┴','─',#1 ,'┘',#24);
  80.  
  81. Begin
  82.     Begin
  83.       Window(1,1,25,80);
  84.         If Carrier Or KeyHiT Then EXiT;
  85.         UnCrunch (ImageData,ScreenAddr[ (1*2) + (2*160) -162],1301);
  86.         If Interrupted(True) Then EXiT;
  87.     End;
  88. End;
  89.